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Modified by: 


v03-002 SARO075 Sharon 4. Reynolds, 20-Jun-1983 
Changed the ,cerctege control in the ‘format’ statements 
for use with ERF. 


v03-001 SARO0021 Sharon A. Reynold 4-May-1983 
Made Label out a subroutine. Modi tied "Label yout’ so that 
it calls ‘§et_queue_info’ to get root flink. 


v02-004 BP0004 Brian Porter, 23-JAN-1982 
Made label List alphabetical. 


v02-003 BP0003 Brian Porter, 16-NOV-1981 
Added control-o code. 


v02-002 BP0002 Orten Porter 06-MAY-1981 
Added an extra Linefeed to the ‘volume’ herald. Removed 
RETURN 1 argument. 


v02-001 BP0001 Brian Pe orter, 27-JAN-1981 
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Added code to put unit's in ascending order. Added code 
to reprint label heading for devices of different names. 
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This routine maintains a four dimensional List that keeps 
track of the errors that occur on unique volume Labels 


ie 
: ; 
C 
1 ¢ as they traverse various devices. ot 
C 
o068 ¢ The first dimension has absolute Linkage and the following format. ot 
pea [Sep aera of 
0068 C I blink! OC 
b070 cat teshe Ok. SB a 
C oggin 
0071 «¢ ER. «ee Be 0 
007¢ C I root label flink I 0¢ 
007 C teewen enn n nnn n nen nn en enn wenn ne- === 4 0¢ 
0074 c I root Label blink I OC 
0075 C a aaa 0C 
Sore c I label entry count I OC 
oo78 ot ee ers eee eee) ee o 
0079 c The second dimension has absolute Linkage and the following format. et 
0080 C 
0081 C teem meee ene en wenn ennent OC 
etd c I flink2 I OC 
008 C teem enn en een eneeecenee- + OC 
0084 c I blink2 I oC 
0085 C aa ead + ie 
0086 4c I I oC 
0087 ra == --+ OC 
0088 ¢ I 12 byte label field I 0¢ 
0089 c too --+ oC 
0090 c I oC 
0091 C teoeereenn= woe ee ee eoecen=+ 0C 
id c I root name flink I 0¢ 
009 c Sa ae ata | OC 
0094 c I root name blink I OC 
0095 C teenenconn= eoceeeorococont Of 
0096 C I name entry count I! ae 
0098 1 RATE ARES Ot 
sts c The third dimension has absolute Linkage and the following format. 0} 
101 ¢ teeneee-n------ wo------ -----+ 6 
1 § c I flink3 I 1 
1 c ¢eoccccece wowoocococoococose + 
1 c I blink3 I 1 
105 c aaa 8. 
1 c I I 
1 c +-- --+ 
198 c I 16 byte name I ( 
1 Cc +-- =--+ ‘ 
110 c I field I fl 
111 c tee noe ‘ 
ie C I I f 
11 c tome e wwe een noone cccces= wet f 
114 C I root unit flink I 0' 
| 
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I root unit blink | 


toacenewronrnroan ean meneame ceacae + 


I unit entry count I 


etn emer m oe ewer na wma maernaeean + 


> > 


The fourth dimension has absolute Linkage and the following format 


toe eee seest reer een cer once eneenan $ 


I flink4 
peer we mm ee ee eee meee ew eww eee + 
I blinks 
Pewee em mm wm re eee mmm em memo} 
I ucb unit number I 


deere ew em eet merece se mee mm we +} 


I mount operation count I 


eer eer ew eee een ecw eee ere nee ce + 


I mount error count I 


der et en mana eee wemocanmeaconsa $ 


I dismount operation count | 
+ 


mow ewe newt oae wane wenanmance + 


VMFWN OO DOONAUES WN “OOOO 


I dismount error count I 
mount count 

or er ence rer ee emer eeeocrocersewa$ 

I mounted flag I 


tore ewww eww emo mmo s ean nm eee = + 


1 mount before dismount I 
I last mount operation cnt | 


gene enw e See werent ere ese eee nt 


1 last mount error count I 


peer oo me tee emma ewe see ee ee oee 


Subroutine LABEL is called whenever mount/dismount or device 
error/timeout entries are encountered. 


If the entry type is mount then an a search is made for a List entry 
where the device name, volume Label and unit number are the same as 
the error log entry. If found then the counters for that List entry 
are updated, otherwise a new List entry is created. 

If the entry type is dismount then a search is made for a List entry 
that corresponds to this device name,volume label and unit number. 


Yo overcome the problem of random mounts and dismounts of the same 
volume Label on a particular drive two boolean variables and 

two counters are used. The boolean variables are used to synchronize 
correctness of mount/dismount sequences, the counters are used t 
store values of operation and error counts for individual units for 
particular volume Labels. 
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subroutine label (entrance,search_sid,search name_length, 
1 search name string,search 
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17 0" 
118 byte lun 8} 
175 integer*4 buf fer0(2) | 81 
176 integers4 buf ferl (6) 1 
17 integer4 buf fer2(8) 01 
178 integer4 buf fer3(9) Q) 
179 integer4 buf fer4(12) 9 
180 integers4 root_logging_sid_flink 1 
181 integert4 root logging sid_bl ink 01 
1 é Integers4 Root_flink 01 
1 Integer*4 Sid_Count 3 
1 Integer*4 Label_count 
0185 Integer*4 Name_Count 01 
0186 Integer*4 Unit~count 01 
18 Integer*4 Logging_sid_entry count 01 
188 Integers4 Label_entry_count 01 
189 Integers4 Name_entry_count 0! 
9190 Integere4 UnitZentry~count 9 
bi36 equivalence (buf fer0(1),root_logging_sid_flink) 0' 
0133 equivalence (buf fer0(2) ,root_logging_sid_bl ink) 2! 
0195 integer4 flink!1 0! 
0136 integers4 blink! 01 
197 integers4 Logging sid 0! 
0198 integer®4 root_label_flink 0; 
4 integer*4 root_label_blink af 
4 
$503 equivalence (buf fer1(1).flink1) 0< 
a4 equivalence epurror) tg; -plingl? 0% 
660 equivalence (buf fer1( }, Logging sid) 0 
04 equivalence (buf fer1(4) ,root_label_flink) 0< 
0205 equivalence (buf fer1(5),root_ label blink) 0% 
Bspe equivalence (buf fer1(6), LabeT_entry_count) as 
4 
0208 integer*4 flink < 
0 4 integer*4 blink 0% 
4 
0 1 byte label_array(12) ‘ 
0318 charactertl2 = Label_string | ‘ 
8 15 integert4 root_name_flink 
19 integer*4 root_name_blink 
6 18 equivalence (buffer $1} oft ink? 
19 equivalence (buffer Gf Penne ) 
0 equivalence (buf fer2(5), label erray) 
1 equivalence (Label_array, Label_string) 
é equivalence (buffer (6) root name ft nk) 
equivalence (buf fer2(7),root_name_blink) | 
¢ equivalence (buf fer2(8) ,name_entry_count) 
$ integer*4 ft inks | 
§ i integer*4 blink | 
| 
| 
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9 byte name_array(16) 
? byte name_length 
§ character*15 name_string 
4 integer*4 root _unit_flink 
0235 integers4 root_unit_blink 
0 equivalence (buf fer3(1), fli ) 
8 equivalence (buf fer 2G; ot ink ) 
9 equivalence (buf fer3(5) ,name_array) 
40 equivalence (name_array,name_length) 
41 equivalence (name_arr y (2) .ndne string) 
4g equivalence (buf fér3(7) ,root_unit_flink) 
4 equivalence (buf fer3(8) ,root_unit_blink) 
rf: equivalence (buf fer3(9) ,unit_entry_count) 
0 re] integer*4 flink4 
024 integer*4 blinks 
0248 integer*4 ucb_unit_number 
024° integers4 ucb_mount_operation_count 
0250 integer*4 ucb_mount_error_count 
0251 integers4 ucb_dismount_operation_count 
bSe¢ integer*4 ucb_dismount_error_count 
O5ez integer*4 sye_mount_count 
0255 Logical*4 mounted 
ose9 lLogical*4 mount _before_dismount 
0258 integer*4 Last_valid_mount_opration_count 
8526 integer*4 last_valid_mount_error_count 
0563 equivalence (buf fer4(1), fl ink4) 
3506 equivalence (buf fer4(2) bl ink4) 
026 equivalence (buf fer4(3),ucb_unit_number) 
0264 equivalence (buf fer4(4) ,ucb_mount_operation_count) 
0265 equivalence (buf fer4(5) ,ucb_mount_error_count 
0266 equivalence (buf fer4(6) ,ucb_dismount_operat ion_count) 
0267 equivalence (buf fer4(7) ,ucb_dismount_error_count 
O5e5 equivalence (put fore {3} -Sye mount, count 
269 equivalence (buf fer4(9) ,mounted) 
0270 equivalence (buf fer4(1 $ mount_before_dismount) 
0271 equivalence (buf fer4(11), last_valid_mount_opration_count) | 
b % equivalence (buf fer4(12),last_valid_mount_error_count) 
74 integer*4 toaging-sid_entry address | 
154 integer*4 labe._entry_address 
6 integer*4 name_entry_address 
7 integer*4 unit_entry_address 
0 8 integer *4 search_sid 
0 Hy 4 integere4 entrance 
3) integer*2 search_unit 
Hf character*15 search_name_string | 
osee character*15 search_name 
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0 86 byte search_name_length 
eS character*l2 search_Llabel 
ay Logical*1 LibSget_vm 
38 integer*4 LibSextzy 
9 integer*4 compress4 
0294 integers4 operation_count 
0295 integer*4 error_count 
0296 integers4 Label_operation_count 
8 44 integert4 label_error_count 
0299 Logical*1 lLabel_herald_printed 
8 : lLogical*1 sid_herald_printed 
304 byte operation_width 
030 byte error_width 
Bane byte mount_width 
integer*4 insert _blink 


call movc5S (Xval(search_name_length) ,%ref (search_name_string) ,%val(42), 
1 Sval(15),%ref(search_name 


logging_sid_entry_address = root_logging_sid_flink 
do 100,i = 1,logging_sid_entry_count 
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call movc3 (%val(24),%val(logging_sid_entry_address) ,buffer1) 
5 if (logging_sid .eq. search_sid) then 

label_entry_address = root_label_flink 

do 90,j = 1,label_entry_count 

call movc3 (Xval(32),%val(label_entry_address) ,buffer2) 
8 if (search_label .eq. label_string) then 
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name_entry_address = root_name_flink 
do 80,k = 1,name_entry_count 
call movc3 (%val (36), %val (name_entry_address) ,buffer3) 


if (search_name .eq. name_string) then 
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| 
| 
| 
character®15 previous_name_string 
| 
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unit_entry_address = root unit_flink 
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do 60,1 = l,unit_entry_count 
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15 


60 


65 


80 


Sep-1984 23 

i ec4 94s 98:05:03 
call movc3 (%val(48) ,fval (unit_entry_address) ,buffer4) 

if (search_unit .eq. ucb_unit_number) then 


goto (300,400) entrance 


return 
endif 


insert_blink = blink4 

if (ucb_unit number .gt. search_unit) goto 65 
unit_entry_address = flink4 

continue 

insert_blink = root_unit_blink 

if (entrance .eq. 2) return 

call movcS (%val(0),,%val(0),%val (48) ,buffer4) 

if (LibSget_vm(((48+7)/8)*8,unit_entry_address)) then 
call insque (Zval(unit_entry_address) ,ival(insert_blink)) 
ucb_unit_number = search_unit 

unit_lentry_count = unit _entry_count + 1 

call movl (unit_entry_count,Z%val(name_entry_address + 32)) 
goto 15 

endif 

endif” 

name_entry_address = flink3 

continue 

if (entrance .eq. 2) return 

call movcS (Zval(0),,%val(0),%val (36) ,buffer3) 

if (LibSget_vm(((36+7)/8)*8,name_entry_address)) then 
call insque (Zval(name_entry_address) ,2val(root_name_blink)) 
name_length = search_name_length 

name_string = search_name 


root_unit_flink = name_entry_address + 24 
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root _unit_blink = root_unit_flink 

call movc3 (%val(28) ,name_length,Zval(name_entry_address + 8)) 

name_entry_count = name_entry_count + 1 

call movl (name_entry_count,Zval(label_entry_address + 28)) 

oto 10 

ond’ f 

endif 

insert_blink = blink2 

oo 85,m = 1,12 

if Cichar(label_string(m:m)) = ichar(search_label(m:m))) 87,85,95 


continue 

label_entry_address = flink2 
90 continue 

insert_blink = root_label_blink 
95 if (entrance .eq. 2) return 


call movcS (%val(0),,%val(0),%val(32) buf fer2) 

if (LibSget_vm(((32+7)/8)*8,label_entry_address)) then 
call insque (%val(label_entry_address) ,%val(insert_blink)) 
root_name_flink = label_entry_address + 20 
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root_name_blink = root_name_flink 
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40 

rt label_string = search_label 

“8 call movc3 (%val(24),fref(label_string) ,2val(label_entry_address + 8)) | 
45 label_entry_count = label_entry_count + 1 
éf call movl (Label_entry_count,Zval(logging_sid_entry_address + 20)) | 
49 oto 8 | 
50 endif | 
51 | 
26 return 
37 endif 

32 Logging_sid_entry_address = flink1 
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-Sep-1984 
continue 

if (entrance .eq. 2) return 

call moveS (%val(0),,%val (0) ,%val(24) ,buffer1) 

if (LibSget_vm(((24+7)/8)*8, Logging_sid_entry_address)) then 
if Clogging_sid_entry_count .eq. 0) then 
root_logging_sid_flink = Zloc(root_logging_sid_flink) 
root_logging_sid_blink = Zloc(root_logging_sid_flink) 

endif 7 

call insque (%val(logging_ sid_entry_address), 

1 %val(root_logging_s a BT ink?) 

logging_sid = search_sid 

root_label_flink = logging_sid_entry_address + 12 
root_label_blink = root_label_flink 

logging_sid_entry_count = logging_sid_entry_count + 1 

call movc3 (%val(16),logging_sid,%val(logging_sid_entry_address + 8)) 


oto 5 
ordi t 


return 
action routine for MOUNT VOLUME calls 


cont inue 

last_valid_mount_opration_count = operation_count 
last_valid_mount_error_count = error_count 

mounted = .true. 

call movc3 (%val(40) ,ucb_unit_number ,Ival(unit_entry_address + 8)) 
return 


action routine for DISMOUNT VOLUME calls 


continue 
if (mounted) then 


» 
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x, 

16-Sep-1984 0 1 
Breepn idee 19:99:32 
if (operation_count .ge. lLast_valid_mount_opration_count 

1 error_count .ge. last_valid_mount_error_count) then 


ucb_mount_operation_count = ucb_mount_operation_count + 
7 Last_valid_mount_Spration_count 


ycb. mount ioe count = ucb_mount_error_count + 
Last_valid_mount_error_count 


ucb_dismount_operation_count = ucb_dismount_operation_count + 
1 operation_Count 


ucb_dismount_error_count = ucb_dismount_error_count + error_count 
sye_mount_count = sye_mount_count + 1 
mounted = .false. 
col) moves (%val(40) ,ucb_unit_number ,ival(unit_entry_address + 8)) 
en 
endif 
return 
ete GET_QUEUVE_INFO (ROOT FLINK, SD. COUNT, 
LABEL _ COUNT ,NAME_COUNT ,UNIT_COUN 
Root_ Link = root oa eS sid_flink 
Sid_tount = logging. s d_entry_count 
Label_count = label"entry_count 
Name_Count = name_entry_count 


Unit_count = unit_entry_count 
Return 


SOOCOOOOCoCooOooOoooooooooo 


End 
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LABEL if-se sop~ 130% 00: 93: 7 VAX-11 FORTRAN V3.4-56 Page 


-Sep-1 DISKSVMSMASTER: CERF. SRCILABEL. FOR;1 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 933 PIC CON REL LCL om EXE RD NOWRT LONG 
1 SPDATA 1 PIC CON REL gt SHR NOEXE RD NOWRT LONG 
2 SLOCAL 62 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1569 


ENTRY POINTS 


COOOOCSCOOCOCOOOOCOOOOOooooO 


a a ee a a 


Address Type Name Address Type Name 
0-00000383 GET_QUEUE_INFO 0-00000000 LABEL 
VARIABLES 
Address Type Name Address Type Name es 
LINK 3-00000058 1*4 BLINK2 0, 
BL IN NK -00000004 14 BLINKS 0, 
CORPR RESS4 AP-00000004@ I1*4 ENTRANCE 0 
ERROR_COUNT =000000A7, L*1 ERROR WIDTH 0, 
FLINKT -00000054 I*4 FLINK2 0, 
FLINK NK3 -00000000 14 FLINK4 0. 
I -9900000¢ #4 INSERT _BLINK 0: 
-“O000000E8 14 0; 
: AP-0000000Ca I*4 CAB EL COUNT 0: 
LABEL_ENTRY_ADDRESS ~00000088 LABEL_ENT 0: 
LABEL ~ERROR~ COUN OAS LABEL “HERALD PRINTED 0: 
LABEL ~OPERATION_COUNT LABEL” 8: 
LAST QA ALID AMOUNT” ERROR_COUNT 


Last tOALID MOUNT _OPRATION_COUNT 
LOGGING? SID_ENTRY_COUNT 
et BEFORE. DISMOUNT 
NAME_ENTRY_COUNT 


LIBSEXT 
LOGGING, $1D_ENTRY_ADDRESS 


MOUNT WIDTH 
NAME _ENTRY ADDRESS 
ete 


NAME ~ NAME“ STRIN 
OPERATI OPERRT ION WIDTH 
PREVIOUS oN RARE. STRING T NR 


at 
ROOT” LABEL F 


ROOT_LABEL 
ROOT “LOGE ING” sD. FLINK 
ROOT" NAME _FLINK 


ROOT" LOGGING SID_BLINK 
ROOT~ BLINK 


LABEL igSeer19BE 99:05:01 


$ (2) 
(6) 
(8) 

(9) 

G 18 

RRAY 12 (12) 
RAY 16 (16) 


LABELS 


Address Label Address Label Address Label Address Label 
0-00000051 5 0-00000082 8 0-000000B86 10 0-000000E7 15 
8 ee 0-00000219 87 tt 90 
0-00000313 300 0-00000338 400 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
INSQUE 


Type Name 
MOVCS 


Type Name 
MOVC3 


Type Name 
L*1  iBSGET_VM 


Ta oe Te a: > "a 
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DT SKSVMSMASTER: FEAF -SRCILABEL.FOR;1 °%* 


Address Label 


He 60 
0-0000022C 95 


Type Name 


| 
Address’ Label 
0-0000011B 65 
ee 100 
MOVL 
| 
j 


rc 


0 
0 
0 
8 
0 
: 
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oe 
Ld 
a 
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~“ 
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— 
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=) 
_ 
i) 
oa 
wo 
te. 
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a 
Mu 
~~ 
za 
<w 
cr 
-w 
s= 
23 
-= 
—-aA 
ie 4 
xm 
{ao 
>a 
nt 
om 
mo 
an 
com 
o- 
4 
on 
-—— 
se 
aa 
mee 
wm 
te 
Ow 
— 


SeSsssssss 
Vw 
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iw 
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SoerErErerrce 


uw 
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Subroutine LABEL_OUT (Lun) 


Functional Description: 


This module handles the output of the volume summary information. 


byte 


integer*4 
integers4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 


equivalence 
equivalence 


integers4 
integer*4 
integer*4 
integers4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integer*4 
integer*4 


byte 


character*12 


integer*4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integer*4 
integere4 


byte 


Lun 
buffer i 


put terse ) 


root_logging_sid_flink 
root_logging_sid_blink 


(buf fer0(1),root_logging_si 
(buf fer0(2) ,root_logging_si 


flink1 


aa 


_¥ 
am) 


root_labe 
root_lab 


flink 
blink 


label_array(12) 
label_string 


root_name_flink 
root _name_blink 


(buffer ed} of Links} 
(2) ,blink2) 
(3), label ervey? 
el_array,labeT_string) 
er §} root name. tt nk) 
ere(7),root_name_blink) 
er2(8),name_entry_count) 


name_array(16) 


cc 


VAX=11 FORTRAN 


ib-Sep-19 
DISKSVMSMASTER: 


P 
-Sep-19 -SRCJLABEL.FOR;1 


| 
0 
0 
0 
| 
| 
| 


Li! 
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DISKSVMSMASTER: CERF .SRCJLABEL.FOR;1 


if-sen-1964 00:05:04 


byte name_length 

character*15 name_string 

integer*4 root_unit_flink 

integers4 root_unit blink i 

equivalence (buffer $3) o St ink 

equivalence (buf fer3(2) ,blink i 

equivalence (buf fer3(5) ,name_array) i 

equivalence (name aarray, pene ~Length) i 

equivalence (name_arr Hs 2) ,name_string) i 

equivalence (buf fér f root_unit_flink) 

equivalence (buffer . root_unit_blink) i 

equivalence (buf fer3(9) ,unit=entry_count) i 

integer*4 flink4 0' 

ntegers4 blink4 0: 

integer*4 sye_mount_count 8; 

nteger*4 ucb_dismount_operation_count i 

integers4 ucb_dismount_error_count 0: 

integer*4 ucb_mount_opération_count i 

integers4 ucb_mount_error_count i 

integer*4 ucb_unit_fumber™ i 

Logicals4 mount _before_dismount Bi 

poe Logical*4 mounted if 

0088 integers4 Last_valid_mount_error_count 0: 

494 integer*4 Last_valid_mount_opratTon_count Si 

0091 equivalence (buffer4(1), flink4) 0; 

0098 equivalence (buf fera(¢), sbLink4) 0: 

009 equivalence (buf fer4(3) ,ucb_unit_number) 0: 

0094 equivalence (but fer4(4) ,uc “mount _operation_count) i 

0095 equivalence (buf fer4(5) ,ucb_mount_error_coun i 

9047 equivalence (buf feré (¢) .ucb_ dismoUnt _opération_count) 0: 

s'43 equivalence epur rere} ),ucb_dismount_error_count) 0: 

8 equivalence (buf f or$ (8) .sye_n0 mount _count) Bi 

st equivalence (buf fer4(9) ,mounte i 

100 equivalence (buf fer4(105 ,mount_before_dismount) 0: 

+ 4 equivalence (buf fer4(11), lLast_Valid_mount_opration_count) i 

; ¢ equivalence (buf fer4(12), last_valid_mount_error_count 

194 byte error_width 

105 byte mount width 

106 byte operation_width 

444 byte search_name_length 

109 logical*! t tpspet 

110 lLogical*1 labe hErald. rinted 

+f logical*1 sid_hérald_printed 

118 integer*2 search_unit 

115 integer4 compress4 
116 integer*4 entrance 

| 


LABEL _OUT 


integert4 
integers4 
integers4 
integers4 
integers4 
integers4 
integers4 
integer*4 
integers4 
integers4 
integer*4 


Sei 


ooo 


NOUS WN O04 


character*! 
character! 
character*! 


wr 


Integer*4 
Integer*4 
Integer*4 
Integer*4 


DD ce ae et ce el el ce ce ce ce ce el cel lt cl el eel cel cel cel el cel el cel el cel 
ww 


DPAAAGIMUIMUIVIE BEEP LEE 


SOOOOOSOOOOOSOSOCOSOOSOCOSOCOSOSOSSOCOCOSOOOOOOOOOCOO 


ee et a i oe as ss SY St st 


error count 

inser€_blink 
Label_entry_address 
Label“operation_count 
nd wy r_count 

lo q ng.s d_entry_address 
LibSextzv 


name_entry_address 
operation_count 
search_s 
unit_entry_address 


search_label 
search_name_string 
soaren none 
previous_name_string 


Logging-sid_entry count 
Label_entry_coun 
Name_entry_count 
Unit_entry_count 


C 
3 Get the root flink for the volume information queue. 
Call GET_QUEVE_INFO (root_logging_sid_flink, loggin 


1 label_entry_count,name_entry_count,unit_entry_coun 
logging_sid_entry_address = root_logging_sid_flink 
do 200,i = 1,logging_sid_entry_count 
call movc3S (%val(24) ,%val(logging_sid_entry_address) ,buffer1) 
sid_herald_printed = .false. 
label_entry_address = root_label_flink 
do 195,j = 1,label_entry_count 
lLabel_herald_printed = .false. 

call movc3S (%val(32),%val(label_entry_address) ,buffer2) 
name_entry_address = root_name_flink 
do 190,k = 1,name_entry_count 


eh unit_entry_address = root_unit_flink 
+4 do 185,l = 1,unit_entry_count 

4 call movc3 (%val(48) ,2val(unit_entry_address) ,buffer4) 
48 if (sye_mount_count .ne. 0) then 


“520-1986 00:05:04 


g.sid_entry_count, 


call movc3S (%val(36),%val(name_entry_address) ,buf fer3) 


VAX=11 FORTRAN V¥3.4-56 
DISKSVMSMASTER: CERF .SRCILABEL .FOR; 1 


r 


SOOSOCOOCOOOCOOCOOOSOOSSOOOOSSOSOSOSOSOSOSSOSOSSOSOOCOCCOSCOOOOOOOOOOCOOOOoOOO 


a 3 
ME etn ee gee ey PENS UMGRASTER: EERE cecoLABeL.ror;1 2° ' 


= 


if (.not. sid_herald_printed) then 
c call set_rab$v_cco 

call fretof (lun) 

call Linchk (Llun,3) 

write(lun,105) Logging. sid 
105 format(/* *,*VOL LABEL(S) LOGGED BY SID 

1 t34,'Q10(5)', 44, "ERROR(S)', t54, "MOUNT(S 


sid_herald_printed = .true. 
endif 


',28.8,//, 
"5 


if (mname_string .ne. previous_name_string) 
1 Label_Rerald_printed = .falSe. 


if (.not. label_herald_printed) then 
call Linchk (lun,3) 


write(lun,110) Label_strin 
110 format(/' ',t8,'"LABEC <= ',a,/) 


Ft a ts st ts 


QLESRENLSSSLESLAVLSSSLERPATELSSSVSAR 


label_herald_printed = .true. 
endif 


Label_operation_count = ucb_dismount_operation_count - 
ucb_mount_operation_count 


label_error_count = ucb_dismount_error_count = ucb_mount_error_count 


o 
oo 


operation_width = compress4 (label_operation_count) 


3 


error_width = compress4 (label_error_count) 

mount _width = compress4 (sye_mount_ceunt) 

call Linchk (Llun,1) 

write(lun,115) name_string(1:name_length) ,ucb_unit_number, 


1 label operation count, label error_count,sye mount_count 
115 format(* *,t8,'_"Ta<name_length>,i<Compress4 Tucb_unit_number)>,':', 
1 t<40 = operatTon_widthS,i<operation_width>,’.', 
1 t<52 = error_width>, i<error_width>,”.' 
1 $6 - mount width>, i<mount-width>,'.'S 
en 


unit_entry_address = flink4 
previous_name_string = name_string 
185 continue 


| 


Soooooooe[eo Oo oO ooooooo oO lelelelelelelelelelolelelolololole) 


POPPOPPOPOPOPONININIPIPOPIPNYPYPPPPoNy 


SOONOUE WN —OVONOUS WN oO 


WPRORIPOPONONPOPENONUAD 2 tt Ot ow 


name_entry_address = flink3 


LABEL _OUT 


¢ 190 continue 
label_entry_address = flink2 


5 
195 continue 
3 logging_sid_entry_address = flink1 
0240 200 continue 
0241 
8 tg return 
4 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 $CODE 67 Pic CON REL LCL 
1 SPDATA 17 PIC CON REL LCL 
2 SLOCAL 464 PIC CON REL LCL 
Total Space Allocated 1313 


ENTRY POINTS 
Address Type Name 


nN 3 
"$$65-198e 99:85:9) — BEScSvmsmasten: Lear SACILABEL.FoR:1 ” 


SHR EXE RD NOWRT LONG 
SHR NOEXE RD NOWRT LONG 
NOSHR NOEXE RD WRT LONG 


0-00000000 LABEL_OUT 
VARIABLES 
Address Type Name Address Type 
-00000078 I*4 BLINK! -00000058 [#4 
-00000034 I*4 BLINKS -00000004 [#4 
-000000D8 I*4 ENTRANCE “DORR ORS 1*4 
-00000094 L*1 ERROR WIDTH 00000074 I*4 
54 I*4 FLINK2 3030 1*4 
I*4 FLINK4 - 124 
EO [#4 puent BLINK - 0110 [4 
114 [#4 -00000118 1*4 
“O00000E4 [#4 LABEL  ENTRY_ADDRESS -00000088 14 
“OOO000EC I*4 LABEL-ERROR ig -00000099 L*1 
-O00000E8 [#4 LABEL “OPERATION_C m4 4 CHAR 
-0000002C [4 T_ QALID AMOUNT” ERROR. COUNT 0 1*4 
-O000000F4 [*4 t TBSEX xTiV.~ “BR88 8 Ll 
Robo OS 1*4 tOeGING. SID FO [#4 
1 5 1*4 LOGGING SID_ENTRY_COUNT AP-00 Th L*1 
-000000 L*4 ROUNT ED™ -00000024 L*4 
-00000095 L*1 MOUNT WIDTH -00000 rs 1*4 
-00000070 [#4 NAME_ENTRY_COUNT -00000038 L*1 


LABEL_ENTRY_ COUNT 
LABEL-HERALD_PRINTED 

CABEL™ STRING” 

LAST ae MOUNT _OPRAT ION_COUNT 


ty 
LOGGING-SID_ENTRY_ADDRESS 
NT BEFORE 44 geal 


MOUN 
NAME _ENTRY qhdor 
NAME ~LENGTA 


So 


4 


01 
6K 
6 
oO 
0% 
0% 
0% 
oO 
0 
0i 
0% 
0 
0 
0 
0 
iy 
0% 
oO 


0) 
0) 
0: 
0; 
0; 
0: 
0: 
0, 
0 
0) 
0 
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CHAR NAME _STRING - FO I#4 at oh Ely COUNT 
1 OPERATION WIDTH - CHAR PREVIOUS _RAME_STRING 
ROOT_LABEC BLINK - 1*4 ROOT_LABEL_FLINK 
ROOT-LOGGIAG SID_BLINK - 1*4 ROOT ~tOeGING SID FLINK 
ROO =NAME BLINK - 1*4 ROOT_NAME_FLINK 
ROOT UNIT BLINK - I*4 ROOT_UNIT FLINK 
SEARTH_LABEL - 8g CHAR SEARTH_NAME 
SEARCH_NAME_LENGTH - A? CHAR SEARCH_NAME_STRING 
SEARCH SI - 0004 I*2 SEARCH_UNIT 
ore HERALD PRINTED - 1¢ I*4 SYE_MOONT COUNT 
pisnouat abate COUNT - 14 I*4 UCB-DISMOONT OPERATION aad 
uce “ROUNT E COONT -00 of I*4 UCB MOUNT OPERATION. COONT 
UCB-UNIT NA ERBeR -00000104 I*4 UNIT_ENTRY_ADDRESS 
UNIT VENTRY COUNT 
ARRAYS 
Address Type Name Bytes Dimensions 
-0000008C I*4 BUFFERO 8 (2) 
-00000074 I*4 BUFFER! 4 2 
-00000054 I*4 BUFFER 2 (8) 
-00000030 I*4 BUFFER 6 (9) 
I*4 BUFFERS 48 193 
-0000005C L*1 LABEL_ARRAY 12 (12) 
-00000038 L*l NAME_ARRAY 16 (16) 
LABELS 
Address Label Address Label Address’ Label Address’ Label Address’ Label Address 
1-00000008 193" 1-00000054 110° 1-00000068 115° ee 185 ef 190 el 
sd 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 FRCTOF GET_QUEUE_INFO 
LINCHK MOVC3 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:LABEL/OBJ=O0BJ$:LABEL MSRC$:LABEL 


/ CHE CK= (NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOL§, TRACEBACK) 

/ST SONDARDOCNOG TATAXY NOSOURCE FORM) | 

/SHOW= (NOPREPROCE SSOR,NOINCLODE ,MA 

/F77 /NOG_FLOATING 714 SL PTIAIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


I nn a a Ee SI TES BENS RE RI 1 Eo EF PMR Sao ENT 


DISKSVMSMASTER: CERF .SRCJLABEL.FOR;1 


Page 


Label 
195 


19 


EN 


VA 
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gee) DISKSVMSMASTER:LERF.S ab aL ABEL. FOR;1 
COMPILATION STATISTICS | 
Run Time: 7,35 seconds 
Elapsed Time: 13 6 seconds 
Page Faults: 1 é 
Dynamic Memory: 208 pages 
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